home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / SCROLL UP LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  421b  |  14 lines
  1. 10  REM  SCROLL UP LOADER
  2. 20  INPUT "ENTER BASE ADDRESS: ";B
  3. 30 I = 0
  4. 40  READ J: IF J <0  THEN 60
  5. 50  POKE B +I,J:I = I +1: GOTO 40
  6. 60  PRINT "SCROLL.UP LOADED AT "B
  7. 70  PRINT "LENGTH: "I" BYTES. NEXT ADDR: "B +I
  8. 80  END 
  9. 90  DATA  165,34,72,32,36,252
  10. 100  DATA  165,40,133,42,165,41,133,43
  11. 110  DATA  164,33,136,104,105,1,197,35,176,13
  12. 120  DATA  72,32,36,252,177,40,145,42,136,16,249
  13. 130  DATA  48,225,96
  14. 140  DATA  -1